The CLARION Professional Developer
Manage Directories
Editor
Compiler
Filer
Helper
Processor
Sorter
Designer
Translator  
Scanner
Reporter
Crossrefer  
Converter
Director
Language
Tailor
Environment  
 This is the Professional Developer tutorial selection screen.  
 There are tutorials for each Clarion utility program, as well  
 as the Clarion language structure and development environment. 
 The Environment tutorial should be viewed first. It begins 
 a series of tutorials that should be viewed sequentially.  
 Each tutorial within this series recommends its successor. 
 The remaining tutorials can be viewed in any order.
 Use the cursor arrow keys to select a tutorial. Then press 
 the Enter key to view it.  When the tutorial completes, it 
 will return to this menu.  Press the Esc key to return to  
 this menu from any page of a tutorial.
 This is a tutorial for the Clarion Professional Developer. 
 You may turn pages manually,  or you may have them turned  
 automatically for you.
To continue,  please press M for  
 manual,  A for automatic,  or Esc to return to DOS.
 You can change the viewing mode at any time by pressing M for  
 manual or A for automatic.
 In either viewing mode, the right arrow key turns to the next  
 page, and the left arrow key turns back to the last page.  In  
 manual viewing mode, the tutorial waits for you to press an
 arrow key.  In automatic viewing mode, the tutorial gives you  
 time to read a page then turns to the next page automatically. 
 You can speed up the tutorial by pressing the gray + key, or
 slow it down by pressing the gray - key.  You can terminate a  
 tutorial by pressing the Esc key.
 PORDER
PROGRAM
 IINCLUDE('STD_KEYS.CLA')
INCLUDE('CTL_KEYS.CLA')
 This is Source Code generated by  
INCLUDE('ALT_KEYS.CLA')
 DESIGNER.  This is the beginning  
INCLUDE('SHF_KEYS.CLA')
 of the program, DESIGNER will
 produce CODE by using a template  
REJECT_KEY
EQUATE(CTRL_ESC)
 contained in a Model file.  Note  
ACCEPT_KEY
EQUATE(CTRL_ENTER)
 the MAP of Modules and Procedures.
 	EQUATE(1)
FALSE
EQUATE(0)
 OPROC(G_OPENFILES)
 ?MODULE('ORDER01')
 APROC(ORDER_MENU)
!Order Processing System
 OMODULE('ORDER02')
 APROC(PROCESS)
!Order Processing
 OMODULE('ORDER03')
 APROC(ORDER_UPDATE)
!Order Item Entry
 OMODULE('ORDER04')
 0ORDER.CLA 0:1
 (LIN OVR
IND CAP NUM
EJECT('FILE LAYOUTS')
 .CUSTOMER
FILE,PRE(CUS),CREATE,RECLAIM
 'CUST_KEY
KEY(CUS:NUMBER),NOCASE
NAME_KEY
KEY(CUS:NAME),DUP,NOCASE
 This section of code contains the 
COMMENT
MEMO(90)
 File Definitions.  CLARION allows 
RECORD
 	RECORD
 selection of field types such as; 
NUMBER
DECIMAL(4,0)
 BYTE, SHORT, LONG, DECIMAL, REAL, 
CUST_DATE
 STRING AND MEMO.  All source code 
STRING(20)
 generated by DESIGNER is fully
ADDRESS
STRING(20)
 commented.
CITY_STATE
STRING(20)
DECIMAL(5,0)
 3CONTACT
STRING(30)
!Customer Contact
PHONE
DECIMAL(10,0)
!Customer Telephone Number
 MGROUP,OVER(CUS:COMMENT)
 ,CUS_MEMO_ROW
STRING(45),DIM(2)
ORDERS
FILE,PRE(ORD),CREATE,RECLAIM
 'ORDER_KEY
KEY(ORD:CUSTOMER,ORD:ORDER),DUP,NOCASE
RECORD
 	RECORD
 ;CUSTOMER
 	DECIMAL(4,0)
!Customer Number
ORDER
DECIMAL(4,0)
!Order Number
ORDER.CLA 54:1
 'LIN OVR
IND CAP NUM
prLAN4    
EJECT('CODE SECTION')
 0CODE
 LSETHUE(7,0)
 !SET WHITE ON BLACK
BLANK
 The Code Section begins with
 !  AND BLANK
G_OPENFILES
 the keyword CODE.  The code 
 !OPEN OR CREATE FILES
SETHUE()
 is always generated with
THE SCREEN
ORDER_MENU
 complete error checking and 
 !Order Processing System
 	RETURN
 recovery routines.
 !EXIT TO DOS
  G_OPENFILES  PROCEDURE
!OPEN FILES & CHECK FOR ERROR
 LSHOW(25,1,CENTER('OPENING FILE: ' & 'CUSTOMER',80)) !DISPLAY FILE NAME
OPEN(CUSTOMER)
 !!OPEN THE FILE
IF ERROR()
 %!OPEN RETURNED AN ERROR
CASE ERRORCODE()
! CHECK FOR SPECIFIC ERROR
 	OF 46
 (!  KEYS NEED TO BE REBUILT
SETHUE(0,7)
  !  BLACK ON WHITE
SHOW(25,1,CENTER('REBUILDING KEY FILES FOR CUSTOMER',80)) !INDICATE MSG
 	BUILD(CUSTOMER)
!  CALL THE BUILD PROCEDURE
SETHUE(7,0)
  !  WHITE ON BLACK
BLANK(25,1,1,80)
!  BLANK THE MESSAGE
 )!IF NOT FOUND,
CREATE(CUSTOMER)
! CREATE
 )! ANY OTHER ERROR
ORDER.CLA 105:1
 &LIN OVR
IND CAP NUM
 This is a quick look at the CODE generated by DESIGNER, for
 a more in-depth look at the CLARION LANGUAGE refer to the  
 Language Reference manual.
ETEDT    
CTCMP    
FTFIL    
HTHLP    
PTPRO    
STSRT    
DTDES    
TTTRN    
STSCN    
RTRPT1   
CTXRF    
CTCVT    
DTDIR    
LLAN1    
TTTLR    
ETENV    	
QRETURN  
 Editor
Compiler
Filer
Helper
Processor
Sorter
Designer
Translator
Scanner
Reporter
Crossrefer
Converter
 kDirector
Language
Tailor
Environment
!BASE    
BASE_W1 
BASE_W2 v
BASE_W3 
BEGIN   
BLUE    
INSTR   
LAN1    Z
LAN2    
LAN3     
LAN4    
MENU